00100	BEGIN "MAKBW"
00200	LABEL NOPE;
00300	STRING FIL;
00400	INTEGER FLAG,EOF,I,S;
00500	INTEGER ARRAY INDEX[0:10000];
00600	NOPE: OUTSTR("FILE=");
00700	OPEN(1,"DSK",'10,2,0,1,0,EOF);
00800	LOOKUP(1,FIL←INCHWL,FLAG);
00900	ARRYIN(1,INDEX[0],128);
01000	OUTSTR("PIC(10=R,11=B,12=G)=");
01100	I←CVO(INCHWL);
01200	IF INDEX[I]=0 THEN GO TO NOPE;
01300	S←(INDEX[I] LAND '777777) - (INDEX[I]%2↑(18))-1;
01400	ARRYIN(1,INDEX[128],S-128);
01500	INDEX[7]←INDEX[I];
01600	IF I≠7 THEN INDEX[I]←0;
01700	OPEN(2,"DSK",'10,0,2,1000,0,EOF);
01800	ENTER(2,FIL,FLAG);
01900	ARRYOUT(2,INDEX[0],S);
02000	CLOSE(1);
02100	CLOSE(2);
02200	OUTSTR("OK"&'12&'15);
02300	GO TO NOPE;
02400	END;